﻿Imports NVPortal.Modules.NVNews
Partial Class Widget_widget200
    Inherits System.Web.UI.Page
    Public Function ReplaceChuoi(ByVal chuoi As String) As String
        Dim convert As String = Global.ReplaceChuoi.bodau(chuoi).Replace(" ", "-")
        Return convert
    End Function
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            If Not IsPostBack Then
                'Bind video khac
                Dim arrNews As New ArrayList
                Dim ctlNews As New NV_NewsController
                arrNews = ctlNews.SelectCustomeNews(26, 12, 1)
                Me.rptNews.DataSource = arrNews
                Me.rptNews.DataBind()
                'Cac tin khac cung chuyen muc voi tin nay
            End If
        Catch ex As Exception
            'Me.imgNews.Visible = False
            ' Exception
            ProcessModuleLoadException(Me, ex)
        End Try
    End Sub
    Public Function FormatURL(ByVal strID As String, ByVal strLink As String) As String
        Return "/462/" & strID & "/" & ReplaceChuoi(strLink) & ".htm"
    End Function
End Class
